FRGPSFOR - Customização da guia GPS gerada pelo SIGAFIN

Descrição

O ponto de entrada FRGPSFOR permite customizar as informações que serão demonstradas na guia GPS, como razão social, código CNPJ/CPF/CEI e demais informações cadastrais. O código de barras será gerado conforme as informações customizadas.

Observações

Exemplos

User Function FRGPSFOR()
Local aRet := {}
Local aGPS := aClone(ParamIxb)

/*
A variável PARAMIXB é um array que contém a seguinte estrutura:
1 - Número do CNPJ/CPF
2 - Razão Social
3 - Nº do Telefone
4 - Endereço (Logradouro + Número)
5 - Bairro
6 - CEP
7 - Município
8 - UF
9 - Recno da tabela SA2 (Fornecedor) do registro posicionado
*/

SA2->(dbGoTo(aGPS[9]))

If !Empty(SA2->A2_U_CDCEI)
aAdd(aRet,Transform(SA2->A2_U_CDCEI,"@R ##.###.#####/##"))
Else
aAdd(aRet,aGPS[1])
EndIf

aAdd(aRet,aGPS[2])
aAdd(aRet,aGPS[3])
aAdd(aRet,aGPS[4])
aAdd(aRet,aGPS[5])
aAdd(aRet,aGPS[6])
aAdd(aRet,aGPS[7])
aAdd(aRet,aGPS[8])

Return aRet

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus10 e Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

ParamIXB
A variável PARAMIXB é um array que contém a seguinte estrutura:
1 - Número do CNPJ/CPF
2 - Razão Social
3 - Nº do Telefone
4 - Endereço (Logradouro + Número)
5 - Bairro
6 - CEP
7 - Município
8 - UF
9 - Recno da tabela SA2 (Fornecedor) do registro posicionado

Retorno

aRet
Deve ser retornado um array com a seguinte estrutura
1 - Número do CNPJ/CPF
2 - Razão Social
3 - Nº do Telefone
4 - Endereço (Logradouro + Número)
5 - Bairro
6 - CEP
7 - Município
8 - UF

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

FINRGPS.PRW