Histórico da Página

Quando a pergunta "seleciona filiais" estiver igual a SIM, as variáveis cFilDe e cFilAte serão preenchidas com "de branco a zz", sendo necessário validar o array aLisFil, que deverá conter alista de filiais selecionadas.

#include "totvs.ch"     

User Function SPEDPTMS()

	Local aAreaSA1	:= SA1->(GetArea())
	Local cAlias   	:= PARAMIXB[1]
	Local aDoc    	:= PARAMIXB[2] 
	Local aRet     	:= {}

   

 //conteudo do array de docto fiscal
   
 //01 - Doc. Fiscal
    
//02 - Serie NF
   
 //03 - Cliente/Fornecedor
   
 //04 - Codigo Loja
    
//05 - Data Docto.
   
 //06 - Data Emissao
    
//07 - Data Canc.
   
 //08 - Formulario Proprio
   
 //09 - CFOP
    
//10 - Reservado
   
 //11 - Aliq. ICMS
    
//12 - Nro. PDV
   
 //13 - Base  ICMS
   
 //14 - Aliq. ICMS
    
//15 - Valor ICMS
   
 //16 - Valor Isento ICMS
    
//17 - Outros ICMS
   
 //18 - ICMS Retido ST
   
 //19 - Conta Contabil
    
//20 - Tipo Lancamento
   
 //21 - Tipo Frete
    
//22 - Filial
   
 //23 - Estado
   
 //24 - Observacao
    
//25 - Chave NFE
   
 //26 - Tipo Emissao
    
//27 - Prefixo
   
 //28 - Duplicata
   
 //29 - Cupom Fiscal
    
//30 - Transportadora
   
 //31 - Peso Bruto
    
//32 - Peso Liquido
   
 //33 - Veiculo1
   
 //34 - Veiculo2
    
//35 - Veiculo3
   
 //36 - Optante Simples Nacional
    
//37 - Regime Paraiba

    //-- Tratamento especifico

	If SA1->(dbSeek(xFilial("SA1") + "00000101"))   
		aAdd(aRet,InfPartDoc("SA1"))
	EndIf

	If SA1->(dbSeek(xFilial("SA1") + "00000101"))   
		aAdd(aRet,InfPartDoc("SA1"))
	EndIf

	RestArea(aAreaSA1)

Return aRet