User Function EICDI554() Local nValQuebra:= 150 //Quantidade de itens desejada por nota fiscal (alterar conforme necessidade) If PARAMIXB =="Tem_Outra_Quebra"
lQuebra_espe:=.T. If nTipoNF == 2
If Work1->WKNOTAOR <> cNumComp .OR. Work1->WKSERIEOR <> cSerieComp .Or. nItem >= nValQuebra
cNumComp := WORK1->WKNOTAOR
cSerieComp := WORK1->WKSERIEOR
lQuebrou_NF:= .T.
EndIf
Else
IF nItem >= nValQuebra .OR.;
cForn # Work1->WKFORN .OR. (EICLoja() .And. cLoja # Work1->WKLOJA) .OR.;
nItem == 0 .OR. If(lQuebraCFO, cCFO # Work1->WK_CFO,.F.) .OR.;
(lIntDraw .AND. Work1->WKACMODAL # cACModal) .OR.;
(lQuebraOperacao .AND. cOperacao # Work1->WK_OPERACA) .OR.;
nAdicao > 99
nAdicao := 0
lQuebrou_NF:= .T.
ENDIF
EndIf
ENDIF If PARAMIXB =="GRAVACAO_SD1" AADD(aItem,{"D1_CC" ,SC7->C7_CC ,".T."}) ENDIF Return Nil IF PARAMIXB =="GRAVA_SF1_EI1" EI1→(RecLock("EI1",.T.))
EI1->EI1_II := 0
EI1->EI1_IPI := 0 EI1→(MsUnlock())
SF1→(RecLock("SF1",.T.)) SF1→F1_DESPICM := 0 SF1→(MsUnlock())
ENDIF | 
