Histórico da Página

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} User Function FI020CABEC

    (Pontos de Entrada Pontos de Entrada para cliente alterar informacoes antes do ExecAuto
	ou Adicionar campos de usuario.)
    
    @type  Function
    @author Cassio S Dias
    @since 01/12/2023
    @version 12.1.2310
    @param param_name, param_type, param_descr
    @return aCab, array
    @see ()
    /*/
User Function FI020CABEC(aCabec) as array

	Local aCab     as array
	Local aStruSF2 as array
	Local cCodPdv  as character
	Local cCond  cCVendor  as character
    	Local j        as numeric

	aCab     := {}
    	aStruSF2 := SF2->(dbStruct())
	cCodPdv    cCond   := PARAMIXB
	cCVendor := PARAMIXB


	//Monta o cabecalho da NF
	For j := 1 to len(aStruSF2)

		Do Case
		Case ALLTRIM(aStruSF2[j][1]) == 'F2_FILIAL'
			Aadd( aCab, xFilial("SF2") )			// Filial

		Case ALLTRIM(aStruSF2[j][1]) == 'F2_CLIENTEVEND1'
			Aadd( aCab, SA1->A1_CODcCVendor    )			// Cliente

		Case ALLTRIM(aStruSF2[j][1]) == 'F2_LOJAPDV'
			Aadd( aCab, SA1->A1_LOJA   )			// Loja

		Case ALLTRIM(aStruSF2[j][1]) == 'F2_CLIENT'
			Aadd( aCab, SA1->A1_CODcCodPdv     )			// Cliente

		Case ALLTRIM(aStruSF2[j][1]) == 'F2_LOJENT'
			Aadd( aCab, SA1->A1_LOJA   )			// Loja

		Case ALLTRIM(aStruSF2[j][1]) == 'F2_TIPO'
			Aadd( aCab,     "N"        )		    // Tipo (Normal)

		Case ALLTRIM(aStruSF2[j][1]) == 'F2_TIPOCLI'
			Aadd( aCab, SA1->A1_PESSOA )		    // Tipo de cliente (F=Pessoa Fisica; J=Pessoa Juridica)

		Case ALLTRIM(aStruSF2[j][1]) == 'F2_EMISSAO'
			Aadd( aCab,  dDataBase     )		    // Data de emissao

		Case ALLTRIM(aStruSF2[j][1]) == 'F2_COND'
			Aadd( aCab,    cCond	     )	     	// Condicao de pagamento

		Case ALLTRIM(aStruSF2[j][1]) == 'F2_HORA'
			Aadd( aCab, SubStr(Time(),1,5) )		// Hora do processamento

		Case ALLTRIM(aStruSF2[j][1]) == 'F2_EST'
			Aadd( aCab, SA1->A1_EST    ) 	        // Estado

		Case ALLTRIM(aStruSF2[j][1]) == 'F2_NEXTDOC'
			Aadd( aCab, "      "       )		    // Proximo doctoPDV

		EndCase

	Next j

Return aCab