Histórico da Página

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(aGPS9aGPS[9]))

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

aAdd(aRet,aGPS2aGPS[2])
aAdd(aRet,aGPS3aGPS[3])
aAdd(aRet,aGPS4aGPS[4])
aAdd(aRet,aGPS5aGPS[5])
aAdd(aRet,aGPS6aGPS[6])
aAdd(aRet,aGPS7aGPS[7])
aAdd(aRet,aGPS8aGPS[8])

Return aRet