Histórico da Página

User Function MinhaSaidaRemessa()

    Local xAutoCab := {}
	Local xAutoItens := {}
	Local lMsErroAuto := .f.
	Local aRotina := {}
	Private cCadastro := "Saida por remessa" 

    //Cabeçalho
	aAdd(xAutoCab,{"VV0_FILIAL"  ,xFilial("VV0")		,Nil}) // Filial
	aAdd(xAutoCab,{"VV0_FORPRO"  ,"1"   		 		,Nil}) // Formulário próprio     1 - Sim / 2 - Não 
	aAdd(xAutoCab,{"VV0_CLIFOR"  ,"C"				    ,Nil}) // Cliente ou fornecedor  C - Cliente / F- Fornecedor
	aAdd(xAutoCab,{"VV0_CODCLI"  ,"000001"		        ,Nil}) // Código do Cliente deve existir na base
	aAdd(xAutoCab,{"VV0_LOJA"    ,"01"          		,Nil}) // Loja
	aAdd(xAutoCab,{"VV0_FORPAG"  ,"004"					,Nil}) // Forma de pagamento
	aAdd(xAutoCab,{"VV0_NATFIN"  ,"VENDA"				,Nil}) // Natureza de venda
	aAdd(xAutoCab,{"VV0_CODVEN"  ,"000001"				,Nil}) // Código de vendedor 

    //Itens da Remessa
	xAutoIt := {}
	aAdd(xAutoIt,{"VVA_FILIAL"  ,xFilial("VVA")		,Nil}) // Filial 
	aAdd(xAutoIt,{"VVA_CHASSI"  ,"CHASSI290420251" 	,Nil}) // Chassi 
	aAdd(xAutoIt,{"VVA_CODTES"  ,"501"				,Nil}) // Código de tes (Tipo de entrada e saída)
	aAdd(xAutoIt,{"VVA_VALDES"  ,0					,Nil}) // Valor de desconto
	aAdd(xAutoIt,{"VVA_VALMOV"  ,20000				,Nil}) // Valor do movimento

	aAdd(xAutoItens,xAutoIt)

    MSExecAuto({|x,y,w,z,k,l,m,n,o,p,q| VEIXX001(x,y,w,z,k,l,m,n,o,p,q)},xAutoCab,xAutoItens,{},3,"3",NIL,,{},,,"VEIXA013" )

    If lMsErroAuto
		DisarmTransaction()
		MostraErro()
        Return
    Else
	    MsgInfo("Registro salvo com sucesso","Atenção")
    EndIf

Return()