MATA461-M460QUEB - Define a quebra do documento de saída

Salve salve....

Ponto de entrada M460QUEB- ( Faturamento - Geracao das Notas Fiscais de Saida  ) 

MATA461-M460QUEB - Define a quebra do documento de saída

#INCLUDE "TOTVS.CH"


/*/{Protheus.doc} M460QUEB
Ordem de processamento

@type 		function
@author    	Eurai Rapelli
@since     	2023.01.01
/*/
User Function M460QUEB()
Local lQuebra    := .F.
Local cAlias     := ""
Local aPvlNfs    := {}
Local nX         := 1
 
cAlias  := ParamIxb[01]
aPvlNfs := If(Len(ParamIxb[02]) <> 0 , aClone(ParamIxb[02]),{})
 
/*
aPvlNfs    Array com os seguintes campos como
  { C9_PEDIDO   ,;    //01
    C9_ITEM     ,;    //02
    C9_SEQUEN   ,;    //03
    C9_QTDLIB   ,;    //04
    nPrcVen     ,;    //05
    C9_PRODUTO  ,;    //06
    F4ISS=="S"  ,;    //07
    C9RECNO     ,;    //08
    C5RECNO     ,;    //09
    C6RECNO     ,;    //10
    E4RECNO     ,;    //11
    B1RECNO     ,;    //12
    B2RECNO     ,;    //13
    F4RECNO     ,;    //14
    B2_LOCAL    ,;    //15
    0           ,;    //16 - Compatibilidade (Não Usado)
    C9_QTDLIB2})    //17
*/
 
For nX := 1 To Len(aPvlNfs)
    SB1->(DbGoTo(aPvlNfs[nX,12]))
    lQuebra := If(Upper(Alltrim(SB1->B1_TIPO )) == "PA",.T.,lQuebra)
    //Caso em algum dos itens do pedidos de venda tenha produto com o tipo "PA" é retornardo a quebra como Verdadeiro
    If lQuebra
        Exit
    EndIf
Next
 
Return(lQuebra)

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima