Histórico da Página

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function MyPVLNFS()

    Local aPvlDocS := {}
    Local nPrcVen := 0
    Local cC5Num  := "pcpAO9"
    Local cSerie  := "001"
    Local cEmbExp := ""
    Local cDoc    := ""

    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "FAT" TABLES "SF2","SD2","SA1","SA2","SB1","SB2","SF4","SED","SE1"

    SC5->(DbSetOrder(1))
    SC5->(MsSeek(xFilial("SC5")+cC5Num))

    SC6->(dbSetOrder(1))
    SC6->(MsSeek(xFilial("SC6")+SC5->C5_NUM))

    //É necessário Obtercarregar oso dadosgrupo de cadaperguntas itemMT460A, dose pedidonão de será executado com os valores default.
    Pergunte("MT460A",.F.)

    // Obter os dados de cada item do pedido de vendas liberado para gerar o Documento de SaidaSaída
    While SC6->(!Eof() .And. C6_FILIAL == xFilial("SC6")) .And.;
            SC6- SC6->C6_NUM == SC5->C5_NUM

        SC9->(DbSetOrder(1))
        SC9->(MsSeek(xFilial("SC9")+SC6->(C6_NUM+C6_ITEM))) //FILIAL+NUMERO+ITEM

        SE4->(DbSetOrder(1))
        SE4->(MsSeek(xFilial("SE4")+SC5->C5_CONDPAG) )  //FILIAL+CONDICAO PAGTO

        SB1->(DbSetOrder(1))
        SB1->(MsSeek(xFilial("SB1")+SC6->C6_PRODUTO))    //FILIAL+PRODUTO

        SB2->(DbSetOrder(1))
        SB2->(MsSeek(xFilial("SB2")+SC6->(C6_PRODUTO+C6_LOCAL))) //FILIAL+PRODUTO+LOCAL

        SF4->(DbSetOrder(1))
        SF4->(MsSeek(xFilial("SF4")+SC6->C6_TES))   //FILIAL+TES

        nPrcVen := SC9->C9_PRCVEN
        If ( SC5->C5_MOEDA <> 1 )
            nPrcVen := xMoeda(nPrcVen,SC5->C5_MOEDA,1,dDataBase)
        EndIf

		If AllTrim(SC9->C9_BLEST) == "" .And. AllTrim(SC9->C9_BLCRED) == ""
        	AAdd(aPvlDocS,{ SC9->C9_PEDIDO,;
            SC9->C9_ITEM,;
            	SC9->C9_SEQUENITEM,;
                        	SC9->C9_QTDLIBSEQUEN,;
            nPrcVen,;
            	SC9->C9_PRODUTOQTDLIB,;
            .F.,;
            SC9->(RecNo())	nPrcVen,;
            SC5->(RecNo()),;
            SC6->(RecNo())	SC9->C9_PRODUTO,;
            SE4->(RecNo()),;
            SB1->(RecNo())	.F.,;
            SB2->(RecNo()),;
            SF4	SC9->(RecNo())})
,;
        SC6->(DbSkip())
    EndDo
    
    cNota := MaPvlNfs(  /*aPvlNfs*/  	SC5->(RecNo()),;
         aPvlDocS,;  // 01 - Array com os itens a serem gerados
    	SC6->(RecNo()),;
                    /*cSerieNFS*/       cSerie	SE4->(RecNo()),;
    // 02 - Série da Nota Fiscal
              	SB1->(RecNo()),;
          /*lMostraCtb*/      .F.,;       // 03 - Mostra Lançamento Contábil
	SB2->(RecNo()),;
                        	SF4->(RecNo())})
		EndIf

   /*lAglutCtb*/     SC6->(DbSkip())
  .F.,;  EndDo

	SetFunName("MATA461")
    
 // 04 - AglutinacDoc Lançamento Contábil
                        /*lCtbOnLine:= MaPvlNfs(  /*aPvlNfs*/      .F.   aPvlDocS,;  // 01 - Array com //os 05itens -a Contabilizaserem On-Linegerados
                        /*lCtbCustocSerieNFS*/       .T.cSerie,;       // 0602 - Serie Contabilizada CustoNota On-LineFiscal
                        /*lReajustelMostraCtb*/       .F.,;       // 0703 - ReajusteMostra de preço na Nota Fiscal
 Lançamento Contábil
                       /*nCalAcrslAglutCtb*/        0.F.,;         // 0804 - TipoAglutina deLançamento Acréscimo FinanceiroContábil
                        /*nArredPrcLislCtbOnLine*/    0,;  .F.,;       // 0905 - Tipo de Arredondamento
 Contabiliza On-Line
                       /*lAtuSA7lCtbCusto*/         .T.,;       // 1006 - AtualizaContabiliza Amarração Cliente x Produto
 Custo On-Line
                       /*lECFlReajuste*/            .F.,;       // 1107 - CupomReajuste de preço na Nota Fiscal
                        /*cEmbExpnCalAcrs*/         cEmbExp0,;         // 1208 - NúmeroTipo dode EmbarqueAcréscimo de ExportaçãoFinanceiro
                        /*bAtuFinnArredPrcLis*/    0,;     {||},;      // 1309 - BlocoTipo de Código para complemento de atualização dos títulos financeiros
 Arredondamento
                       /*bAtuPGerNFlAtuSA7*/      {||}   .T.,;       // 1410 - BlocoAtualiza deAmarração CódigoCliente para complemento de atualização dos dados após a geração da Nota Fiscal
 x Produto
                       /*bAtuPvllECF*/         {||}   .F.,;       // 1511 - BlocoCupom deFiscal
 Código de atualização do Pedido de Venda antes da geração da Nota Fiscal
            /*cEmbExp*/         cEmbExp,;   /*bFatSE1*/ 12 - Número do Embarque de Exportação
  {|| .T. },; // 16 - Bloco de Código para indicar se o valor do Título  a Receber será gravado no/*bAtuFin*/ campo F2_VALFAT quando o parâmetro MV_TMSMFAT estiver com o valor igual a "2".
               {||},;      // 13 - Bloco de Código para complemento de atualização dos títulos financeiros
          /*dDataMoe*/        dDatabase,;     /*bAtuPGerNF*/  17  - Data da cotação para conversão dos valores da Moeda do Pedido de Venda para a Moeda Forte
         {||},;      // 14 - Bloco de Código para complemento de atualização dos dados após a geração da Nota Fiscal
                /*lJunta*/       /*bAtuPvl*/     .F.)    {||},;      // 1815 - Aglutina Pedido Iguais
    
    If !Empty(cNF) Bloco de Código de atualização do Pedido de Venda antes da geração da Nota Fiscal
        Conout("Nota Fiscal: " + cSerie +   "-" + cNF + ", gerada com sucesso!!!")
 /*bFatSE1*/    EndIf

    RESET ENVIRONMENT

Return .T.

 {|| .T. },; // 16 - Bloco de Código para indicar se o valor do Titulo a Receber será gravado no campo F2_VALFAT quando o parâmetro MV_TMSMFAT estiver com o valor igual a "2".
                       /*dDataMoe*/        dDatabase,; // 17 - Data da cotação para conversão dos valores da Moeda do Pedido de Venda para a Moeda Forte
                       /*lJunta*/          .F.)        // 18 - Aglutina Pedido Iguais
    
    If !Empty(cDoc)
        Conout("Documento de Saída: " + cSerie + "-" + cDoc + ", gerado com sucesso!!!")
    EndIf

    RESET ENVIRONMENT

Return .T.