CONTEÚDO
- Visão Geral
- Exemplo de utilização
- Parâmetros
- Variáveis
01. VISÃO GERAL
Este Ponto de Entrada permite gravar os campos criados pelo usuário.
Programa Fonte
GPEM550.PRX
Sintaxe
GPE550GRV - Gravação de Campos ( [ Paramixb[1] ] )
Retorno
- ()
02. EXEMPLO DE UTILIZAÇÃO
User Function GPE550GRV()
Local nOpcao := Paramixb[1]
//Alert("Passou pelo PE GPE550GRV")
If !Empty(SRA->RA_CNPJ) .And. !Empty(SRA->RA_RAZAO)
If nOpcao == 1
If SRL->( dbSeek( SRA->RA_FILIAL + SRA->RA_MAT ) )
RecLock("SRL", .F.)
SRL->RL_CPFCGC := SRA->RA_CNPJ
SRL->RL_BENEFIC := SRA->RA_RAZAO
SRL->( MsUnlock() )
EndIf
ElseIf nOpcao == 2
If SR4->( dbSeek( SRA->RA_FILIAL + SRA->RA_MAT ) )
While SR4->( !EoF() .And. SR4->R4_FILIAL + SR4->R4_MAT == SRA->RA_FILIAL + SRA->RA_MAT )
RecLock("SR4", .F.)
SR4->R4_CPFCGC := SRA->RA_CNPJ
SR4->( MsUnlock() )
SR4->( dbSkip() )
End While
EndIf
ElseIf nOpcao == 3
If RCS->( dbSeek( SRA->RA_FILIAL + SRA->RA_MAT ) )
While RCS->( !EoF() .And. RCS->RCS_FILIAL + RCS->RCS_MAT == SRA->RA_FILIAL + SRA->RA_MAT )
RecLock("RCS", .F.)
RCS->RCS_CPFBEN := SRA->RA_CNPJ
RCS->( MsUnlock() )
RCS->( dbSkip() )
End While
EndIF
EndIf
EndIf
Return( Nil )
03. PARÂMETROS
Outras Ações / Ações relacionadas
Nome | Tipo | Descrição | Obrigatório |
---|---|---|---|
Paramixb[1] | Numérico | Tabela de gravação (1-SRL; 2-SR4; 3-RCS) |
04. VARIÁVEIS
Principais Campos e Parâmetros
Nome | Tipo | Escopo | Pode Alterar |
---|---|---|---|
Array of Record | Global | Não |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas