Josber
Al inicio en opened
Código COBOL:
MOVE POW-FALSE TO VISIBLE OF CMMONTH1.
En el evento clik
Código COBOL:
MOVE POW-TRUE TO VISIBLE OF CMMONTH1
las sintaxis es la siguiente
Código COBOL:
WORKING-STORAGE SECTION.
01 fecha.
02 DIA PIC 99.
02 FILLER PIC X VALUE "/".
02 MES PIC 99.
02 FILLER PIC X VALUE "/".
02 ANO PIC 9999.
PROCEDURE DIVISION.
MOVE "DAY" OF CTMONTH1 TO DIA.
MOVE "MONTH" OF CTMONTH1 TO MES.
MOVE "YEAR" OF CTMONTH1 TO ANO.
MOVE FECHA TO POW-TEXT OF CMTEXT1.
MOVE POW-FALSE TO VISIBLE OF CTMONTH1.
Funciona en powercobol9 en windows 7,8,10 en 32 y 64 bits.
---------- Post añadido : 11:40 ---------- Post anterior : 11:32 ----------
P.D. uso los componentes Dbitech version 6.1
