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(aGPS9))
If !Empty(SA2->A2_U_CDCEI)
aAdd(aRet,Transform(SA2->A2_U_CDCEI,"@R ##.###.#####/##"))
Else
aAdd(aRet,aGPS1aGPS1)
EndIf
aAdd(aRet,aGPS2aGPS2)
aAdd(aRet,aGPS3aGPS3)
aAdd(aRet,aGPS4aGPS4)
aAdd(aRet,aGPS5aGPS5)
aAdd(aRet,aGPS6aGPS6)
aAdd(aRet,aGPS7aGPS7)
aAdd(aRet,aGPS8aGPS8)

Return aRet