Histórico da Página

#include "PROTHEUS.CH"

User Function MinhaSaidaRemessaExecAuto_VEIXA013_Incl()
 
    Local xAutoCab      := {}
	    Local xAutoItens    := {}
	Local lMsErroAuto    Local nIncRemessa   := .f.
	Local aRotina := {}
	Private cCadastro := "Saida por remessa"  3    // Operação para inclusão de remessa
    Local cTipoOperacao := "3"  // Saída por remessa
    Local cNumTransacao := Space(TamSX3("VV0_NUMTRA")[01])
    Local cSerieNFAutom := "1"  // Opcional - Serie da NF de Remessa. Quando este parametro for informado, a NF será gerada automaticamente e não será aberta. Caso vazio, será aberta a tela para escolha da NF

    Private lMsErroAuto := .F.

    //Cabeçalho
	    aAdd(xAutoCab,{"VV0_FILIAL"  ,xFilial("VV0")		        ,Nil}) // Filial
	    aAdd(xAutoCab,{"VV0_FORPROCLIFOR"  ,"1C"   		 		,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"					003"                 ,Nil}) // Forma de pagamento
	    aAdd(xAutoCab,{"VV0_NATFIN"  ,"VENDA"				               ,Nil}) // Natureza de venda
	    aAdd(xAutoCab,{"VV0_CODVEN"  ,"000001"				              ,Nil}) // Código de vendedor
    aAdd(xAutoCab,{"VV0_VALFRE"  ,250                   ,Nil}) // Valor do Frete
 
    //Itens da Remessa
	xAutoIt    xAutoIt001 := {}
	    aAdd(xAutoItxAutoIt001,{"VVA_FILIAL"  ,xFilial("VVA")		      ,Nil}) // Filial
    
	aAdd(xAutoItxAutoIt001,{"VVA_CHASSI"  ,"CHASSI2904202519BWZZZ377VT004251" 	,Nil}) // Chassi
 
	   aAdd(xAutoItxAutoIt001,{"VVA_CODTES"  ,"501"				               ,Nil}) // Código de tes (Tipo de entrada e saída)
	    aAdd(xAutoItxAutoIt001,{"VVA_VALDES"  ,0					                   ,Nil}) // Valor de desconto
	    aAdd(xAutoItxAutoIt001,{"VVA_VALMOV"  ,20000				               ,Nil}) // Valor do movimento

	aAdd(xAutoItens,xAutoIt)

    MSExecAuto({|a,b,c,d,e,f,g,h,i,j,k| VEIXX001(a,b,c,d,e,f,g,h,i,j,k)},xAutoCab,xAutoItens,{},3,"3",NIL,,{},,,"VEIXA013" )

aAdd(xAutoIt001,{"VVA_CENCUS"  ,"1"     If lMsErroAuto
		DisarmTransaction()
		MostraErro()
        Return
    Else
	    MsgInfo("Registro salvo com sucesso","Atenção"),Nil}) // Centro de Custo
    aAdd(xAutoItens,xAutoIt001)

    EndIf

Return()

User Function MinhaSaidaRemessaCancelada()

    Local xAutoCab := {} // Campos Cabecalho
    Local xAutoItens := {} // Campos Itens
    Local xAutoIt := {}

    Local aParParamBox := {}
    Local aRetParamBox := {}

    Private lMsErroAuto := .f.
    Private cCadastro := "Saida por remessa" 

    // Montagem de parambox para selecionar a NF 
    AADD( aParParamBox , { 1 , RetTitle("F2_DOC")     , Space(TamSX3("F2_DOC" )[1])    , "" , "" , "" , "" , 40 , .T. } )
    AADD( aParParamBox , { 1 , RetTitle("F2_SERIE")   , Space(TamSX3("F2_SERIE" )[1])  , "" , "" , "" , "" , 40 , .T. } )
    AADD( aParParamBox , { 1 , RetTitle("F2_CLIENTE") , Space(TamSX3("F2_CLIENTE")[1]) , "" , "" , "" , "" , 40 , .T. } )
    AADD( aParParamBox , { 1 , RetTitle("F2_LOJA")    , Space(TamSX3("F2_LOJA" )[1])   , "" , "" , "" , "" , 40 , .T. } )

    If ! ParamBox(aParParamBox,"Saida Veiculo - NF",@aRetParamBox,,,,,,,, .f., .f.)
        Return
    EndIf

    cNota := aRetParamBox[1] + aRetParamBox[2] + aRetParamBox[3] + aRetParamBox[4]

    SF2->(dbSetOrder(1))
    If ! SF2->(dbSeek(xFilial("SF2") + cNota ))xAutoIt002 := {}
    aAdd(xAutoIt002,{"VVA_FILIAL"  ,xFilial("VVA")     ,Nil}) // Filial
    aAdd(xAutoIt002,{"VVA_CHASSI"  ,"9BGEX16X0GC123456",Nil}) // Chassi
    aAdd(xAutoIt002,{"VVA_CODTES"  ,"501"              ,Nil}) // Código de tes (Tipo de entrada e saída)
    aAdd(xAutoIt002,{"VVA_VALDES"  ,5000               ,Nil}) // Valor de desconto
    aAdd(xAutoIt002,{"VVA_VALMOV"  ,50000              ,Nil}) // Valor do movimento
    aAdd(xAutoItens,xAutoIt002)

    xAutoIt003 := {}
    aAdd(xAutoIt003,{"VVA_FILIAL"  ,xFilial("VVA")     ,Nil}) // Filial
    aAdd(xAutoIt003,{"VVA_CHASSI"  ,"8ABZZ23Y9KD987654",Nil}) // Chassi
    aAdd(xAutoIt003,{"VVA_CODTES"  ,"501"              ,Nil}) // Código de tes (Tipo de entrada e saída)
    aAdd(xAutoIt003,{"VVA_VALDES"  ,0                  ,Nil}) // Valor de desconto
    aAdd(xAutoIt003,{"VVA_VALMOV"  ,15000              ,Nil}) // Valor do movimento
    aAdd(xAutoItens,xAutoIt003)

    MSExecAuto({|a,b,c,d,e,f,g,h,i,j,k,l,m,n| VEIXX001(a,b,c,d,e,f,g,h,i,j,k,l,m,n)}, xAutoCab, xAutoItens,{} , nIncRemessa, cTipoOperacao, NIL, .F., , , ,"VEIXA013", , , cSerieNFAutom)
 
    If lMsErroAuto
        DisarmTransaction()
        MostraErro()
    Else
        MsgStopFWAlertSuccess("Nota fiscal não encontradaSaída por remessa concluída com sucesso","Atenção")
        ReturnEndIf
    EndIf

    cPergunta := "Nota: " + SF2->F2_SERIE + " - " + SF2->F2_DOC + CHR(13) + CHR(10) + "Fornecedor: " + SF2->F2_CLIENTE + " - " + SF2->F2_LOJA

    If ! MsgYesNo("Confirma Cancelamento da nota fiscal " + chr(13) + chr(10) + chr(13) + chr(10) + cPergunta )
        Return
    EndIf

    aAdd(xAutoCab, { 'VV0_NUMNFI'   , SF2->F2_DOC		, NIL } ) // Numero da nota fiscal 
    aAdd(xAutoCab, { 'VV0_SERNFI'   , SF2->F2_SERIE 	, NIL } ) // Serie da bota fiscal
Return()