GPE550GRV - Gravação de Campos

CONTEÚDO

1. Visão Geral
2. Exemplo de utilização
3. Parâmetros
4. 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

04. VARIÁVEIS

Principais Campos e Parâmetros