Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
Mata467n - Nota Fiscal Manual (ExecAuto)
Mata467n - Nota Fiscal Manual (ExecAuto)

Função: MATA467n - Nota Fiscal Manual


 

Abrangências:Microsiga Protheus 10, Microsiga Protheus 11
,
e Microsiga Protheus
10
12
Compatível Países:Localizados
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todas TotvsDbAccess
 


Descrição:
Função utilizada para a geração de Nota Fiscal manual via rotina automática (ExecAuto).

IMPORTANTE: 
A opção "6-Cancelar" é pertinente às versões Protheus 11 e Protheus 12
Programa Fonte:
LocxNF.prw
Síntaxe:

Mata467n - Nota Fiscal Manual ( aCab, aItens, nOpc ) --> Nil

Retorno:
    Nil (Nulo)
Exemplos:
User Function MyMt467n()

Local aCab := {}
Local aLinha := {}
Local aItens := {}

Private lMsErroAuto := .T.

AAdd( aCab, { "F2_CLIENTE", "000001" , Nil } )
AAdd( aCab, { "F2_LOJA" , "01" , Nil } )
AAdd( aCab, { "F2_SERIE" , "UNI" , Nil } )
AAdd( aCab, { "F2_DOC" , "00000000000000000003" , Nil } )
AAdd( aCab, { "F2_COND" , "001" , Nil } )
AAdd( aCab, { "F2_LOJA" , "01" , Nil } )
AAdd( aCab, { "F2_EMISSAO", dDataBase , Nil } )
AAdd( aCab, { "F2_EST" , "01" , Nil } )
AAdd( aCab, { "F2_TIPO" , "N" , Nil } )
AAdd( aCab, { "F2_ESPECIE", "NF " , Nil } )
AAdd( aCab, { "F2_PREFIXO", "UNI" , Nil } )
AAdd( aCab, { "F2_MOEDA" , 1 , Nil } )
AAdd( aCab, { "F2_TXMOEDA", 1 , Nil } )
AAdd( aCab, { "F2_FORMUL" , "S" , Nil } )
AAdd( aCab, { "F2_TIPODOC", "01" , Nil } )

aLinha := {}
AAdd( aLinha, { "D2_COD" , "000001" , Nil } )
AAdd( aLinha, { "D2_QUANT" , 10 , Nil } )
AAdd( aLinha, { "D2_PRCVEN" , 100 , Nil } )
AAdd( aLinha, { "D2_TOTAL" , 1000 , Nil } )
AAdd( aLinha, { "D2_TES" , "501" , Nil } )
AAdd( aLinha, { "D2_UM" , "UN" , Nil } )
AAdd( aLinha, { "D2_ESPECIE", "NF " , Nil } )
AAdd( aItens, aLinha)

MSExecAuto( { |x,y,z| Mata467n(x,y,z) }, aCab, aItens, 3 ) //3-Incluir, 5-Excluir e 6-Cancelar

If lMsErroAuto
MsgStop("Erro na gravação.")
MostraErro()
Else
MsgAlert('Incluido com sucesso.')
EndIf

Return
Parâmetros:

 

 



Nome
  


Tipo
  


Descrição
  


Default
  


Obrigatório
  


Referência
  


aCab
  


Array of Record
 
 


Array contendo os dados do cabeçalho.
     





X
     





aItens
 
 


Array of Record
  


Array contendo os dados dos itens.
 
    





X
  
   





nOpc
  


Array of Record
  


Opção da rotina
.     X    

 

 
, sendo: 3- Incluir, 5- Excluir e 6- Cancelar




X