Salve salve....
Ponto de entrada GPEXINSCR- ( RH- Relatório demonstrativo de horas. Alterar aInfo)
GPER030-GPEXINSCR- Relatório demonstrativo de horas. Alterar aInfo
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} GPEXINSCR
Relatório demonstrativo de horas. Alterar aInfo
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function GPEXINSCR()
/* Exemplo montagem:
aInfo[ 01 ] := SM0->M0_FILIAL
aInfo[ 02 ] := SM0->M0_NOME
aInfo[ 03 ] := SM0->M0_NOMECOM
aInfo[ 04 ] := SM0->M0_ENDENT
aInfo[ 05 ] := SM0->M0_CIDENT
aInfo[ 06 ] := SM0->M0_ESTENT
aInfo[ 07 ] := SM0->M0_CEPENT
aInfo[ 08 ] := SM0->M0_CGC
aInfo[ 09 ] := SM0->M0_INSC
aInfo[ 10 ] := SM0->M0_TEL
aInfo[ 11 ] := SM0->M0_FAX
aInfo[ 12 ] := SM0->M0_PRODRUR
aInfo[ 13 ] := SM0->M0_BAIRENT
aInfo[ 14 ] := SM0->M0_COMPENT
aInfo[ 15 ] := If( Type("SM0->M0_CEI") # "U" .And. !Empty( SM0->M0_CEI ), 1, SM0->M0_TPINSC )
aInfo[ 16 ] := SM0->M0_CNAE
aInfo[ 17 ] := SM0->M0_FPAS
aInfo[ 18 ] := SM0->M0_ACTRAB
aInfo[ 19 ] := SM0->M0_CODMUN
aInfo[ 20 ] := SM0->M0_NATJUR
aInfo[ 21 ] := SM0->M0_DTBASE
aInfo[ 22 ] := SM0->M0_NUMPROP
aInfo[ 23 ] := SM0->M0_MODEND
aInfo[ 24 ] := SM0->M0_MODINSC
aInfo[ 25 ] := SM0->M0_CAUSA
aInfo[ 26 ] := SM0->M0_INSCANT
aInfo[ 27 ] := If( Type("SM0->M0_CEI") # "U" .And. !Empty( SM0->M0_CEI ), SM0->M0_CEI, "" )
aInfo[ 28 ] := SM0->M0_TPINSC
*/
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima