...
...
Producto | Backoffice de TOTVS | ||
Línea de producto | Línea | ||
| Produto: | TOTVS Backoffice | ||
|---|---|---|---|
| Linha de Produto: | LinhaProtheus | ||
Segmento | :Backoffice | ||
Módulo | :SIGAFAT - | FaturamentoFacturación | Função:|
Función | MATA521 - | Exclusão de Documento de Saída||
| Abrangências: | Microsiga Protheus 12 | ||
| Versões: | Microsiga Protheus 12 | ||
Eliminación del documento de salida | |||
Alcances | Microsiga Protheus 12 | ||
Versiones | Microsiga Protheus 12 | ||
Países compatibles | Compatível Países:Todos | ||
Sistemas | Operacionais:operativos | Todos | Compatível com as Bases de Dados|
Compatible con las bases de datos | Todos | Nível ||
Nivel de | Acesso:acceso | Nível Nivel 1 ( | Acesso Acceso Clientes) |
Idiomas | :Todos |
...
Por default na exclusão de defecto al eliminar un documento de saída, quando utilizado o controle de numeração salida, cuando se utiliza el control de numeración SD9 (MV_TPNRNFS = 3), a numeração da nota é deixada vaga e o campo D9_DOCEXCL recebe conteúdo la numeración de notas se deja vacante y el campo_DOCEXCL recibe el contenido "S" indicando que a numeração ficou vaga devido a uma exclusão. Este processo visa que caso o operador desejar, informe este número manualmente na geração de nova nota para reutilização desta numeração.que indica que la numeración se ha vuelto vacante debido a una eliminación. Este proceso está destinado a que si el operador lo desea, introduzca este número manualmente al generar una nueva nota para la reutilización de esta numeración.
Este punto de entrada tiene como objetivo evitar esta limpieza del registro SD9, de modo que cuando se elimina el documento de salida, la numeración permanezca llena. También se pueden crear validaciones propias en el PE para que la limpieza sea Este Ponto de Entrada tem o objetivo de impedir esta limpeza do registro SD9, para que quando o Documento de Saída for excluído a numeração permaneça preenchida. Também é possível criar validações próprias no PE para que a limpeza seja condicional.
| Aviso | ||
|---|---|---|
| ||
Quando o Ponto de Entrada M521LpSD9 retornar Cuando el punto de entrada M521LpSD9 devuelve .F. o processo de limpeza não é iniciado, mas a nota seguirá para exclusão, logo na SD9 o registro estará com o mesmo preenchimento de quando houve o faturamento e o El proceso de limpieza no se inicia, pero la nota continuará eliminándose, por lo que en SD9 el registro estará con el mismo contenido que cuando se produjo la facturación y el campo D9_DOCEXCL permanecerá em brancoen blanco. |
...
M521LpSD9({cDoc, cSerie}) ---> lRet
...
Nombre | Tipo | DescriçãoDescripción | DefaultEstándar | ObrigatórioObligatorio | ReferênciaReferencia | |||||
aParamIXB | Vetor | Vetor com os dados identificadores do Documento de Saída que esta sendo excluído, sendoVector | Vector con los datos identificadores del documento de salida que se está eliminando, donde: | Caracter Carácter - String | contendo a numeração da notaque contiene la numeración de | Caracter Carácter - String | contendo a série da notaque contiene la serie de facturas |
...
Respuesta | Tipo | DescriçãoDescripción | ObrigatórioObligatorio | |||
lRet | Lógico | Variável logica indicando se deve ser feita a limpeza de dados na SD9 devido a exclusão, sendoVariable lógica que indica si se deben limpiar los datos en la SD9 debido a la eliminación, donde: .T. - Realiza | a limpezala limpieza. .F.. - | Não No realiza | a limpezala limpieza. | SimSí |
...
En este ejemplo validamos si para dicha factura hubo alguna comunicación con Sefaz a través del campo Flag de Impresión
...
Neste exemplo validamos se para a nota em questão houve alguma comunicação com Sefaz através do campo de Flag de Impressão (F2_FIMP)
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"
User Function M521LpSD9()
Local aArea := GetArea() //ArmazenaAlmacena oel ambienteentorno ativoactivo para restaurar aoal fimfinal dodel processoproceso
Local aParam := PARAMIXB
Local cDoc := aParam[1]
Local cSerie := aParam[2]
Local lRet := .F.
DbSelectArea("SF2")
SF2->(DbSetOrder(1))
If SF2->(DbSeek(xFilial("SF2") + cDoc + cSerie))
If Empty(SF2->F2_FIMP) //Verifica sesi para esta notafactura houvehube algumaalguna comunicaçãocomunicación comcon Sefaz
lRet := .T.
EndIf
EndIf
RestArea(aArea) //Restaura oel entorno ambienteactivo ativoal noinicio iníciode dala chamadallamada
Return lRet |