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 cCVendor as character
	Local j        as numeric

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

	MSGINFO( "TESTE CAB", "CABEC" )

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

		Do Case

		Case ALLTRIM(aStruSF2[j][1]) == 'F2_VEND1'
			Aadd( aCab, cCVendor    )			// Cliente

		Case ALLTRIM(aStruSF2[j][1]) == 'F2_PDV'
			Aadd( aCab, cCodPdv     )			// PDV

		EndCase

	Next j

Return aCab