F401DCMP para gravação de dados complementares

Ponto-de-Entrada: F401DCMP para gravação de dados complementares

Descrição:

F401DCMP para gravação de dados complementares na SR4 e SRL, após a gravação das mesmas.

Programa Fonte: FINA401

Sintaxe:

F401DCMP( )

Exemplos

User function F401dcmp()
Reclock("SR4", .T.)
SR4->R4_FILIAL  := "01"
SR4->R4_MAT     := "900000"
SR4->R4_CPFCGC  := "69440722037"
SR4->R4_MES     := "01"
SR4->R4_TIPOREN := "A"
SR4->R4_CODRET  := "1708"
SR4->R4_ANO  := "2011"
SR4->R4_ORIGEM := "2"
SR4->R4_VALOR := 10000			
MsUnlock()			
Reclock("SRL", .T.)                
SRL->RL_FILIAL  := "01"
SRL->RL_MAT     := "900000"
SRL->RL_CODRET  := "1708"
SRL->RL_TIPOFJ  := "1"
SRL->RL_CPFCGC  := "69440722037"
SRL->RL_BENEFIC := "PONTO DE ENTRADA"
SRL->RL_ENDBENE := "ENDEREÇO PE"
SRL->RL_UFBENEF := "SP"
SRL->RL_CGCFONT := SM0->M0_CGC
SRL->RL_NOMFONT := SM0->M0_NOMECOM
MsUnlock()
Alert("lF401dcmp")

Return