Histórico da Página

//---------------------------------------------------------------------------------------------------#Include 'Protheus.ch'
// _________________________________________________________________________________________________
//|Quando se referir aos complementos para geraçaogeracao dos registros C110, C111, C112, C113, C114 e C115|
//|  a tabela CDT também deve ser alimentada, pois ela que efetua o relacionamentos com as outras   |
//|  conforme registro. C110 = Tab. CDT, C111 = Tab. CDG, , C112 = Tab. CDC, C113 = Tab. CDD,       |
//|  C114 = Tab. CDE e C115 = Tab. CDF                                                              |
//| Este PONTO DE ENTRADA é apenas um exemplo de como pode ser utilizado, deve ser adequado conforme| 
//| a regra de negócio específica do cliente                                                        |  
//|_________________________________________________________________________________________________|*/
User Function MATUCOMP()
	
    Local lInclui  
 := .F.
	Local cEntSai   := ParamIXB[1]  
User Function MATUCOMP()
 // E=Entrada ou S=Saida
	Local cSerie   cEntSai := ParamIXB[1]
    cDoc2] // Serie do documento fiscal
	Local cDoc      := ParamIXB[23]
 // Numero  cSeriedo documento 
	Local cCliefor  := ParamIXB[3]
 4] // Cliente/Fornecedor
	Local cLoja   cCliefor  := ParamIXB[4]5] // Loja do Cliente/Fornecedor
    cLojaLocal lDeleta   := ParamIXB[5]!Inclui .AND. !Altera

    // customizações do cliente, deve ser adequadas as regras do cliente
    If !lDeleta
    
    lExiste    lInclui := !CDT->(dbSeek(xFilial("CDT")+cEntSai+cDoc+cSerie+cClieFor+cLoja))
     
    If lExiste 
        RecLock("CDT",.F.)
    Else   lInclui)
        RecLock("CDT",.T.) 
        CDT->CDT_FILIAL  := xFilial("CDT")
  
          CDT->CDT_TPMOV   := cEntSai
    
        CDT->CDT_DOC    := cDoc
            CDT->CDT_SERIE   := cSerie
   
         CDT->CDT_CLIFOR  := cClieFor
            CDT->CDT_LOJA    := cLojaEndIfcLoja
                                  
        CDT->CDT_IFCOMP := "000001"
             CDT->(MsUnLock())

        lInclui  FkCommit()
 := !CDF->(dbSeek(xFilial("CDF")+cEntSai+cDoc+cSerie+cClieFor+cLoja))
        
        RecLock("CDF",.T.lInclui)
            CDF->CDF_FILIAL  := xFilial("CDF")
            CDF->CDF_TPMOV   := cEntSai
            CDF->CDF_DOC    := cDoc
            CDF->CDF_SERIE  := cSerie
            CDF->CDF_CLIFOR  := cClieFor
            CDF->CDF_LOJA    := cLoja
            CDF->CDF_IFCOMP := "000001"
        CDF->(MsUnLock())
    Else
        
        If CDT->(dbSeek(xFilial("CDT")+cEntSai+cDoc+cSerie+cClieFor+cLoja))
            RecLock("CDT",.F.)
            CDT->(DbDelete())
            CDT->(MsUnLock())
        EndIf
        
 
Return       If CDF->(dbSeek(xFilial("CDF")+cEntSai+cDoc+cSerie+cClieFor+cLoja))
            RecLock("CDF",.F.)
            CDF->(DbDelete())
            CDF->(MsUnLock())
        EndIf
        
    EndIf

Return