Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (sueli.gomides), última alteração por Usuário desconhecido (felipe.valcanaia) em 03 jul, 2012

Função: Mata462n - Remito manual
Abrangências: Microsiga Protheus 11 , Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todas TotvsDbAccess
Nível de Acesso: Nível 1 (Acesso Clientes)
Idiomas: Português (Portugal)
Descrição: 
Função utilizada para geração de Remito manual via rotina automática (ExecAuto).
Programa Fonte: 
LocxNF.prw
Sintaxe:

Mata462n - Remito manual ( aCabaItensnOpc )

Retorno:
    ()
Exemplos 
User Function MyMt462n()    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", "R  "								, Nil } )	 AAdd( aCab, { "F2_DOC"   , "00000000000000000002"			, 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", "RFN  "		              		, Nil } ) AAdd( aCab, { "F2_PREFIXO", "R  "		               		, Nil } ) AAdd( aCab, { "F2_MOEDA", 1		               				, Nil } ) AAdd( aCab, { "F2_TXMOEDA", 1		               			, Nil } ) AAdd( aCab, { "F2_FORMUL", "S"		               			, Nil } ) AAdd( aCab, { "F2_TIPODOC", "50"		               		, Nil } ) aLinha := {}				AAdd( aLinha, { "D2_COD"    	, "000001"			 		, Nil } )AAdd( aLinha, { "D2_QUANT"  	, 15						, Nil } )					AAdd( aLinha, { "D2_PRCVEN"  	, 100						, Nil } )					AAdd( aLinha, { "D2_TOTAL"  	, 1500						, Nil } )AAdd( aLinha, { "D2_TES" 		, "501" 					, Nil } )AAdd( aLinha, { "D2_UM"     	, "UN" 						, Nil } )AAdd( aLinha, { "D2_ESPECIE"    , "RFN  " 					, Nil } )AAdd( aItens, aLinha)MSExecAuto( { |x,y,z| Mata462n(x,y,z) }, aCab, aItens, 3 ) If lMsErroAuto		MsgStop("Erro na gravação.")	MostraErro()Else	MsgAlert('Incluido com sucesso.')	EndIfReturn
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