&&Subrutina que asigna # de prestamo por cliente (ID-cedula"
&&basado en año +mes+ secuencia numeria ( ejemplo 2020-04-XXXX)
Thisform.text1.Value = ALLTRIM(thisform.text1.Value)
Thisform.text1.Value = UPPER(thisform.text1.Value)
*FECHA DEL SISTEMA DESCOMPOSICON *
DIASYS = LEFT(DTOC(DATE()),2)
MESSYS = SUBSTR(DTOC(DATE()),4,2)
ANOSYS = RIGHT(DTOC(DATE()),4)
store 0 to numpre2
store ' ' to numpre8
STORE '001' TO NUMPRE9
store ' ' to m.numpres1
SELECT MTROCTES
SET ORDER TO Cedula && CEDULA
SEEK ALLTRIM(thisform.text1.Value)
IF FOUND() then
THISFORM.TEXT3.Value = nombre
thisform.text6.Value = telefono
thisform.text4.Value = direc
SELECT mtprestamo
SET ORDER TO CODPREST
DO WHILE .not. EOF()
THISFORM.TEXT2.VALUE = RIGHT(CODPREST,3)
M.NUMPRES1 = VAL(thisform.text2.value) + 1
NUMPRE2 = INT(M.NUMPRES1)
***
NUMPRE8 = STR(NUMPRE2)
If numpre2 =< 9
numpre8 = '00' + alltrim(str(numpre2))
else
If numpre2 >= 10
numpre8 = '0' + alltrim(str(numpre2))
Endif
Endif
IF numpre2 > 99
store ' ' to numpre8
numpre8 = numpre8 + alltrim(str(numpre2))
Endif
NUMPRE4 = ANOSYS + MESSYS
numpre5 = SUBSTR(codprest,5,2)
IF numpre5 = MESSYS
NUMPRE4 = NUMPRE4 + ALLTRIM(numpre8)
ELSE
NUMPRE4 = NUMPRE4 + ALLTRIM(numpre9)
ENDIF
thisform.text2.Value = NUMPRE4
skip
ENDDO
ELSE
WAIT WINDOWS "VERIFIQUE BIEN CLIENTE NO EXISTE"
STORE "" TO thisform.text1.Value, thisform.text2.Value
ENDIF
&& STORE "" TO thisform.text1.Value, thisform.text2.Value
thisform.refresh