Alcances: | Microsiga Protheus 10, Microsiga Protheus 11 |
Versiones: | Microsiga Protheus 10, Microsiga Protheus 11 |
Compatible países: | Todos |
Sistemas operativos: | Todos |
Compatible con las bases de datos: | Todas |
Idiomas: | Portugués (Brasil) , Portugués (Portugal) , Español , Inglés |
Descripción:
Este P.E. carga los dados a GetDB
Eventos
Se ejecuta en la función que Carga datos a GetDB
Programa fuente
CTBA270.PRW
Sintaxis
CTB270TOK - Carga datos a GetDB ( [ nOpcX ], [ cCtq_CtOri ], [ cCtq_CCOri ], [ cCtq_ItOri ], [ cCtq_ClOri ], [ cCtq_CtPar ], [ cCtq_CCPar ], [ cCtq_ItPar ], [ cCtq_ClPar ], [ cCtq_E05Ori ], [ cCtq_E06Ori ], [ cCtq_E07Ori ], [ cCtq_E08Ori ], [ cCtq_E09Ori ], [ cCtq_E05Par ], [ cCtq_E06Par ], [ cCtq_E07Par ], [ cCtq_E08Par ], [ cCtq_E09Par ] ) --> lRet
Parámetros:
Nombre | Tipo | Descripción | Estándar | Obligatorio | Referencia | ||||||||||||
nOpcX | Numérico | Número de la opción | |||||||||||||||
cCtq_CtOri | carácter | Cuenta de origen | |||||||||||||||
cCtq_CCOri | carácter | Centro de costo de origen | |||||||||||||||
cCtq_ItOri | carácter | Ítem de origen | |||||||||||||||
cCtq_ClOri | carácter | Clase de valor de origen | |||||||||||||||
cCtq_CtPar | carácter | Cuenta de partida | |||||||||||||||
cCtq_CCPar | carácter | Centro de costo de partida | |||||||||||||||
cCtq_ItPar | carácter | Ítem de partida | |||||||||||||||
cCtq_ClPar | carácter | Clase de valor de partida | |||||||||||||||
cCtq_E05Ori | carácter | Ente 05 Origen | |||||||||||||||
cCtq_E06Ori | carácter | Ente 06 Origen | |||||||||||||||
cCtq_E07Ori | carácter | Ente 07 Origen | |||||||||||||||
cCtq_E08Ori | carácter | Ente 08 Origen | |||||||||||||||
cCtq_E09Ori | carácter | Ente 09 Origen | |||||||||||||||
cCtq_E05Par | carácter | Ente 05 Partida | |||||||||||||||
cCtq_E06Par | carácter | Ente 06 Partida | |||||||||||||||
cCtq_E07Par | carácter | Ente 07 Partida | |||||||||||||||
cCtq_E08Par | carácter | Ente 08 Partida | |||||||||||||||
cCtq_E09Par | carácter | Ente 09 Partida |
Devolución
lRet(logico)
Valor de retorno
Ejemplos
If lRet If lCtb270TOk lRet := ExecBlock("CTB270TOK", .F., .F., {nOpcX,cCtq_CtOri,cCtq_CCOri,cCtq_ItOri,cCtq_ClOri,; cCtq_CtPar,cCtq_CCPar,cCtq_ItPar,cCtq_ClPar,; cCtq_E05Ori,cCtq_E06Ori,cCtq_E07Ori,cCtq_E08Ori,cCtq_E09Ori,; cCtq_E05Par,cCtq_E06Par,cCtq_E07Par,cCtq_E08Par,cCtq_E09Par } ) EndIfEndIfTMP->(MsGoTo(nRecno))Return lRet