Page tree
Skip to end of metadata
Go to start of metadata

Ponto-de-Entrada: MATUCOMP - Alterações automáticas
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10 , Todas
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição:

Utilizado para alterações automáticas nos complementos dos documentos fiscais após a emissão das Notas Fiscais.

Eventos

Utilizado apos gravacao de todos os dados da NF de saida ou entrada digitadas no modulo fiscal, faturamento e compras.

Programa Fonte
.PRW
Sintaxe

MATUCOMP - Alterações automáticas ( [ aChave ] )

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
aChaveArray of RecordChave da Nota Fiscal (Entrada ou Saida,Serie,Doc,Cliente ou Fornecedor,Loja)
Retorno
    ()
Exemplos
User Function Matucomp()Local lExiste := .F.dbSelectArea("CD7")CD7->(dbSetOrder(1))             lExiste := CD7->(dbSeek(xFilial("CD7")+ParamIXB[1]+ParamIXB[2]+PADR(ParamIXB[3],TamSX3("CD7_DOC")[1])+ParamIXB[4]+ParamIXB[5]))If lExiste	RecLock(CD7,.F.)	Replace CD7->CD7_LOTE	With  "55555555"	MsUnlock("CD7")   EndIfReturn// _________________________________________________________________________________________________//|Quando se referir aos complementos para geracao 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                                                              |//|_________________________________________________________________________________________________|User Funcation MATUCOMP()cEntSai := ParamIXB[1]cDoc    := ParamIXB[2]cSerie  := ParamIXB[3]cCliefor:= ParamIXB[4]cLoja   := ParamIXB[5]lExiste 	:= CDT->(dbSeek(xFilial("CDT")+cEntSai+cDoc+cSerie+cClieFor+cLoja))If lExiste	RecLock("CDT",.F.)Else	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	:= cLojaEndIf									CDT->CDT_IFCOMP := "000001"MsUnLock()FkCommit()RecLock("CDF",.T.)CDF->CDF_FILIAL	:= xFilial("CDF")CDF->CDF_TPMOV	:= cEntSaiCDF->CDF_DOC	:= cDocCDF->CDF_SERIE	:= cSerieCDF->CDF_CLIFOR	:= cClieForCDF->CDF_LOJA	:= cLojaCDF->CDF_IFCOMP := "000001"Return