Histórico da Página

01.

...

DATOS GENERALES

Líne de producto

...

Linha de Produto:	Microsiga Protheus®
Segmento:	ServiçosServicios
Módulo:	Fiscal

02. DESCRIÇÃODESCRIPCIÓN

Ponto Punto de Entrada entrada SPDFISBLCK para a geração do bloco K no la generación del bloque K en el Sped Fiscal tendo como premissa a criação das tabelas temporárias no Banco de Dados via teniendo como premisa la creación de las tablas temporales en la Base de datos vía FWTemporaryTable().

03.

...

ESPECIFICACIÓN

O BLOCO K é gerado pelo sistema considerando as movimentações de produção e estoque, porém, caso as regras do padrão não atendam, ou então, o usuário não possui todas as movimentações necessárias no sistema, poderá gerar o BLOCO K através do Ponto de Entrada SPDFISBLCK. Se o SPDFISBLCK existir, o processamento padrão do sistema quanto ao BLOCO K será automaticamente desconsiderado.

El BLOQUE K se genera por el sistema considerando los movimientos de producción y stock, sin embargo, si las reglas del estándar no atiendan, o entonces, el usuario no tenga todos los movimientos necesarios en el sistema, podrá generar el BLOQUE K por medio del Punto de entrada SPDFISBLCK. Si SPDFISBLCK existiera, el procesamiento estándar del sistema con respecto al BLOCO K será desconsiderado automáticamente.

En el P.E SPDFISBLCK, deben crearse tablas temporales para los No P.E SPDFISBLCK, deverão ser criadas tabelas temporárias para os registros: 0210, K200, K210, K215, K220, K230, K235, K250, K255, K260, K265, K270, K275, K280, K290, K291, K292, K300, K301 e y K302.

Importante:

Dentro do del P.E E SPDFISBLCK, conforme regras do usuáriode acuerdo con las reglas del usuario, todas as las 20 tabelas tablas descritas acimaanteriormente, deverão deben ser instanciadas (criadascreadas) sempre, mesmo que nem todas sejam populadas, pois é com estas tabelas criadas que a rotina padrão do SPED FISCAL irá gerar o BLOCO K. Para tal funcionamento, o P.E SPDFISBLCK deverá retornar o ALIAS de cada uma das 20 tabelas temporárias criadas e possivelmente populadas.

Parâmetros do ponto de entrada:

siempre, aunque no todas sean completadas, pues es con estas tablas creadas que la rutina estándar del SPED FISCAL generará el BLOQUE K. Para dicho funcionamiento, el P.E SPDFISBLCK debe devolver el ALIAS de cada una de las 20 tablas temporales creadas y posiblemente completadas.

Parámetros del punto de entrada:

Nombre	Tipo	Descripción	Nome	Tipo	Descrição
PARAMIXB	Array of Record	[01] = Data de De Fecha [02] = Data Ate A Fecha [03] = Tipo de leiaute layout ( 0 – Leiaute Layout simplificado 1 - Leiaute Layout completo 2 – Leiaute restrito aos Layout restringido a los saldos de estoque stock )

...

Devolución:

NomeNombre

Tipo

DescriçãoDescripción

Array of Record

Array contendo os Alias das 20 tabelas temporárias criadas e possivelmente populadas, a depender da regra do usuário, na seguinte ordem: con los Alias de las 20 tablas temporales creadas y posiblemente completadas, dependiendo de la regla del usuario, en el siguiente orden: 0210, K200, K220, K230, K235, K250, K255, K210, K215, K260, K265, K270, K275, K280, K290, K291, K292, K300, K301 e K302y K302.

    aRet := {cAlias0210,;
             cAliasK200,;
             cAliasK220,;
             cAliasK230,;
             cAliasK235,;
             cAliasK250,;
             cAliasK255,;
             cAliasK210,;
             cAliasK215,;
             cAliasK260,;
             cAliasK265,;
             cAliasK270,;
             cAliasK275,;
             cAliasK280,;
             cAliasK290,;
             cAliasK291,;
             cAliasK292,;
             cAliasK300,;
             cAliasK301,;
             cAliasK302}

Aviso

title	Importante

Pontos Importantes quanto ao desenvolvimento do

Puntos importantes con respecto al desarrollo del P.E SPDFISBLCK:

- En la ejecución del P.E SPDFISBLCK, considere siempre la sucursal actual para el procesamiento.
- No debe cerrarse ninguno de los Alias dentro del Punto de entrada, pues cuando el BLOQUE K fuer finalizado, el propio fuente del SPED Fiscal finalizará los alias devueltos al final de su procesamiento
- Na execução do P.E SPDFISBLCK, sempre considerar a filial atual/corrente para processamento.
- Não deve-se fechar nenhum dos Alias dentro do Ponto de entrada, pois quando o BLOCO K for concluído, o próprio fonte do SPED Fiscal irá fechar os alias retornados no final do seu processamento.

Informações

title	ObservaçãoObservación

O El registro 0210 somente deve existir quando o conteúdo do solamente debe existir si el contenido del campo 7 - TIPO_ITEM do del Registro 0200 for fuera igual a 03 (produto em processo) ou producto en proceso) o 04 (produto acabadoproducto terminado).
Os códigos dos Itens apresentados nos Los códigos de los Ítems mostrados en los registros de movimentos movimientos como K230, K235 e , etc deverão existir também no , deben existir también en el registro K200.

04.

...

EJEMPLO DE

...

UTILIZACIÓN

Las informaciones pasadas a continuación en el fuente son solamente un ejemplo de cómo generar las informaciones, debe estar atento, pues estas informaciones deben existir en su entorno

...

As informações passadas abaixo no fonte são somente um exemplo de como gerar as informações, deverá atentar-se pois essas informações passadas deve existir em seu ambiente:

Bloco de código

language	java
theme	Midnight
title	SPED1300

#INCLUDE "PROTHEUS.CH"  

User Function SPDFISBLCK()

Local aRet       := {}
Local cAlias0210 := ''
Local cAliasK200 := ''
Local cAliasK220 := ''
Local cAliasK230 := ''
Local cAliasK235 := ''
Local cAliasK250 := ''
Local cAliasK255 := ''
Local cAliasK210 := ''
Local cAliasK215 := ''
Local cAliasK260 := ''
Local cAliasK265 := ''
Local cAliasK270 := ''
Local cAliasK275 := ''
Local cAliasK280 := ''
Local cAliasK290 := ''
Local cAliasK291 := ''
Local cAliasK292 := ''
Local cAliasK300 := ''
Local cAliasK301 := ''
Local cAliasK302 := ''

Local cProd1 := "MP0000000000000000000000000001"
Local cProd2 := "PA0000000000000000000000000001"

Local cModArq:= ParamIxb[3] // 1 = Completo / 0 = Simplificado

Local lGeraComp := cModArq=="1"

Local dDTBackup := dDataBase

dDataBase:=ParamIxb[1]

        //CriaCrea alias ey tabelastablas temporáriastemporales dodel blocobloque K
        TmpBlcK(@cAlias0210, @cAliasK200, @cAliasK220, @cAliasK230, @cAliasK235, @cAliasK250, @cAliasK255, @cAliasK210, @cAliasK215,;
                @cAliasK260, @cAliasK265, @cAliasK270, @cAliasK275, @cAliasK280, @cAliasK290, @cAliasK291, @cAliasK292, @cAliasK300, @cAliasK301, @cAliasK302 )
        


        G0210(cAlias0210,cProd1,cProd2) //Simp

        GK200(cAliasK200,cProd1,cProd2) //Simp

        if lGeraComp
            GK210(cAliasK210,cProd1,cProd2)

            GK215(cAliasK215,cProd1,cProd2)
        endif

        GK220(cAliasK220,cProd1,cProd2) //Simp

        GK230(cAliasK230,cProd1,cProd2) //Simp

        if lGeraComp
            GK235(cAliasK235,cProd1,cProd2)
        endif

        GK250(cAliasK250,cProd1,cProd2) //Simp

        if lGeraComp
            GK255(cAliasK255,cProd1,cProd2)

            GK260(cAliasK260,cProd1,cProd2)

            GK265(cAliasK265,cProd1,cProd2)
        endif

        GK270(cAliasK270,cProd1,cProd2) //Simp

		//ExceçãoExcepción. De Conformeacuerdo con oel manual, Oel registro devedebe serinformarse informado paraa ORIGEM (K270) igual a 5 ouo quandosi oel registro K270 nãono possuirtuviera correçãocorrección de quantidadecantidad negativa ouo positiva
        //if lGeraComp 
            GK275(cAliasK275,cProd1,cProd2)
        //endif

        GK280(cAliasK280,cProd1,cProd2) //Simp

        GK290(cAliasK290,cProd1,cProd2) //Simp

        GK291(cAliasK291,cProd1,cProd2) //Simp

        if lGeraComp
            GK292(cAliasK292,cProd1,cProd2)
        endif

        GK300(cAliasK300,cProd1,cProd2) //Simp

        GK301(cAliasK301,cProd1,cProd2) //Simp

        if lGeraComp
            GK302(cAliasK302,cProd1,cProd2)
        endif 

        //AdicionaIncluye alias dasde las tabelastablas temporáriastemporales criadascreadas
        aRet := {cAlias0210,;
                 cAliasK200,;
                 cAliasK220,;
                 cAliasK230,;
                 cAliasK235,;
                 cAliasK250,;
                 cAliasK255,;
                 cAliasK210,;
                 cAliasK215,;
                 cAliasK260,;
                 cAliasK265,;
                 cAliasK270,;
                 cAliasK275,;
                 cAliasK280,;
                 cAliasK290,;
                 cAliasK291,;
                 cAliasK292,;
                 cAliasK300,;
                 cAliasK301,;
                 cAliasK302 }

dDataBase:=dDTBackup

Return aRet


//-------------------------------------------------------------------
/*/{Protheus.doc} TmpBlcK
FunçãoFunción para creación criaçãode daslas tabelastablas temporáriastemporales para geraçãogeneración dodel blocobloque K
/*/
//-------------------------------------------------------------------
Static Function TmpBlcK(cAlias0210,cAliasK200,cAliasK220,cAliasK230,cAliasK235,cAliasK250,cAliasK255,cAliasK210, cAliasK215, cAliasK260, cAliasK265, cAliasK270,cAliasK275,cAliasK280,cAliasK290,cAliasK291,cAliasK292,cAliasK300,cAliasK301,cAliasK302 )

Local aCampos   := {}
Local nTamFil   := TamSX3("D1_FILIAL")[1]
Local nTamDt    := TamSX3("D1_DTDIGIT")[1]
Local aTamQtd   := TamSX3("B2_QATU")
Local nTamOP    := TamSX3("D3_OP")[1]
Local nTamCod   := TamSX3("B1_COD")[1]
Local nTamChave := TamSX3("D1_COD")[1] + TamSX3("D1_SERIE")[1] + TamSX3("D1_FORNECE")[1] + TamSX3("D1_LOJA")[1]
Local nTamPar   := TamSX3("A1_COD")[1] + TamSX3("A1_LOJA")[1]
Local nTamReg   := 4

Local oAliasTMP1
Local oAliasTMP2
Local oAliasTMP3
Local oAliasTMP4
Local oAliasTMP5
Local oAliasTMP6
Local oAliasTMP7
Local oAliasTMP8
Local oAliasTMP9
Local oAliasTMP10
Local oAliasTMP11
Local oAliasTMP12
Local oAliasTMP13
Local oAliasTMP14
Local oAliasTMP15
Local oAliasTMP16
Local oAliasTMP17
Local oAliasTMP18
Local oAliasTMP19
Local oAliasTMP20
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE 0210
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0})
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Campo 01 do registro 0210
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //***Código dodel produtoproducto que realizará farála orelación relacionamentocon comel registro paiprincipal 0200
    AADD(aCampos,{"COD_I_COMP" ,"C",nTamCod ,0}) //Campo 02 dodel registro 0210
    AADD(aCampos,{"QTD_COMP" ,"N",aTamQtd[1],aTamQtd[2]}) //Campo 03 dodel registro 0210
    AADD(aCampos,{"PERDA" ,"N",5 ,2}) //Campo 04 dodel registro 0210

    cAlias0210 := '0210'
    CriaTabTmp(@oAliasTMP1, cAlias0210, aCampos, {"FILIAL", "COD_ITEM", "COD_I_COMP"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K200
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0})
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Campo 01 dodel registro K200
    AADD(aCampos,{"DT_EST" ,"D",nTamDt ,0}) //Campo 02 dodel registro K200
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //Campo 03 dodel registro K200
    AADD(aCampos,{"QTD" ,"N",aTamQtd[1],aTamQtd[2]}) //Campo 04 dodel registro K200
    AADD(aCampos,{"IND_EST" ,"C",1 ,0}) //Campo 05 dodel registro K200
    AADD(aCampos,{"COD_PART" ,"C",nTamPar,0}) //Campo 06 do registro K200

    cAliasK200 := 'K200'
    CriaTabTmp(@oAliasTMP2, cAliasK200, aCampos, {"FILIAL", "DT_EST", "COD_ITEM"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K220
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0})
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Campo 01 dodel registro K220
    AADD(aCampos,{"DT_MOV" ,"D",nTamDt ,0}) //Campo 02 dodel registro K220
    AADD(aCampos,{"COD_ITEM_O" ,"C",nTamCod ,0}) //Campo 03 dodel registro K220
    AADD(aCampos,{"COD_ITEM_DO" ,"C",nTamCod ,0}) //Campo 04 dodel registro K220
    AADD(aCampos,{"QTD_ORI" ,"N",aTamQtd[1],aTamQtd[2]}) //Campo 05 dodel registro K220
    AADD(aCampos,{"QTD_DEST" ,"N",aTamQtd[1],aTamQtd[2]}) //Campo 06 dodel registro K220

    cAliasK220 := 'K220'
    CriaTabTmp(@oAliasTMP3, cAliasK220, aCampos, {"FILIAL"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K230
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0})
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Campo 01 dodel registro K230
    AADD(aCampos,{"DT_INI_OP" ,"D",nTamDt ,0}) //Campo 02 dodel registro K230
    AADD(aCampos,{"DT_FIN_OP" ,"C",nTamDt ,0}) //Campo 03 dodel registro K230
    AADD(aCampos,{"COD_DOC_OP" ,"C",nTamOP ,0}) //***Campo 04 dodel registro K230. Campo utilizado para fazer relacionamento comrealizar la relación con el registro filhosecundario K230
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //Campo 05 dodel registro K230
    AADD(aCampos,{"QTD_ENC" ,"N",aTamQtd[1],aTamQtd[2]}) //Campo 06 dodel registro K230

    cAliasK230 := 'K230'
    CriaTabTmp(@oAliasTMP4, cAliasK230, aCampos, {"FILIAL", "COD_DOC_OP"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K235
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0})
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Campo 01 dodel registro K235
    AADD(aCampos,{"DT_SAIDA" ,"D",nTamDt ,0}) //Campo 02 dodel registro K235
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //Campo 03 dodel registro K235
    AADD(aCampos,{"QTD" ,"N",aTamQtd[1],aTamQtd[2]}) //Campo 04 dodel registro K235
    AADD(aCampos,{"COD_INS_SU" ,"C",nTamCod ,0}) //Campo 05 dodel registro K235
    AADD(aCampos,{"COD_DOC_OP" ,"C",nTamOP ,0}) //***Campo de vínculo ligaçãocon comel registro K230, ola relacionamentorelación de K230 ey K235 seráse feitorealizará por este campo

    cAliasK235 := 'K235'
    CriaTabTmp(@oAliasTMP5, cAliasK235, aCampos, {"FILIAL", "COD_DOC_OP"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K250
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0})
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Campo 01 dodel registro K250
    AADD(aCampos,{"CHAVE" ,"C",nTamChave ,0}) //***Campo de ligaçãovínculo comcon registrosregistro filhosecundario K255
    AADD(aCampos,{"DT_PROD" ,"D",nTamDt ,0}) //Campo 02 dodel registro K250
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //Campo 03 dodel registro K250
    AADD(aCampos,{"QTD" ,"N",aTamQtd[1],aTamQtd[2]}) //Campo 04 dodel registro K250

    cAliasK250 := 'K250'
    CriaTabTmp(@oAliasTMP6, cAliasK250, aCampos, {"FILIAL", "DT_PROD", "COD_ITEM"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K255
//--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0})
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Campo 01 dodel registro K255
    AADD(aCampos,{"CHAVE" ,"C",nTamChave ,0}) //***Campo de ligaçãovínculo comcon registrosregistro paiprincipal K250
    AADD(aCampos,{"DT_CONS" ,"D",nTamDt ,0}) //Campo 02 dodel registro K255
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //Campo 03 dodel registro K255
    AADD(aCampos,{"QTD" ,"N",aTamQtd[1],aTamQtd[2]}) //Campo 04 dodel registro K255
    AADD(aCampos,{"COD_INS_SU" ,"C",nTamCod ,0}) //Campo 05 dodel registro K250

    cAliasK255 := 'K255'
    CriaTabTmp(@oAliasTMP7, cAliasK255, aCampos, {"FILIAL", "CHAVE"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K210
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0}) //Filial
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Campo 01 dodel Registro K210    
    AADD(aCampos,{"DT_INI_OS" ,"D",nTamDt ,0}) //Campo 01 dodel Registro K210
    AADD(aCampos,{"DT_FININI_OS" ,"D",nTamDt ,0}) //Campo 02 dodel Registro K210
    AADD(aCampos,{"COD_DOC_OS" ,"C",nTamOP ,0}) //Campo 03 dodel Registro K210
    AADD(aCampos,{"COD_ITEM_O" ,"C",nTamCod ,0}) //Campo 04 dodel Registro K210
    AADD(aCampos,{"QTD_ORI" ,"N",aTamQtd[1],aTamQtd[2]}) //Campo 05 dodel Registro K210

    cAliasK210 := 'K210'
    CriaTabTmp(@oAliasTMP8, cAliasK210, aCampos, {"FILIAL", "COD_ITEM_O"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K215
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0}) //Filial
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Campo 01 dodel Registro K215
    AADD(aCampos,{"COD_DOC_OS" ,"C",nTamOP ,0}) // Campo chaveclave de ligaçãovínculo comcon oel registro paiprincipal K210
    AADD(aCampos,{"COD_ITEM_D" ,"C",nTamCod ,0}) //Campo 02 dodel Registro K215
    AADD(aCampos,{"QTD_DES" ,"N",aTamQtd[1],aTamQtd[2]}) //Campo 03 dodel Registro K215

    cAliasK215 := 'K215'
    CriaTabTmp(@oAliasTMP9, cAliasK215, aCampos, {"FILIAL", "COD_DOC_OS"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K260
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0}) //Filial
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Texto fixofijo contendocon "K260"
    AADD(aCampos,{"COD_OP_OS" ,"C",nTamChave ,0}) // Código de identificaçãoidentificación de dala ordemorden de produçãoproducción, en noel reprocessamentoreprocesamiento, ouo de dala ordemorden de serviçoservicio, en nola reparoreparación
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //Código dodel produtoproducto/insumo aque serse reprocessadoreprocesará/reparadoreparará ouo jáya reprocessadoreprocesado/reparado
    AADD(aCampos,{"DT_SAIDA" ,"D",nTamCod ,0}) //DataFecha de saídasalida dodel estoquestock
    AADD(aCampos,{"QTD_SAIDA" ,"N",nTamCod ,0}) //QuantidadeCantidad de saídasalida dodel estoquestock
    AADD(aCampos,{"DT_RET" ,"D",nTamCod ,0}) //DataFecha de retornodevolución aoal estoquestock (entrada)
    AADD(aCampos,{"QTD_RET" ,"N",nTamCod ,0}) //QuantidadeCantidad de retornodevolución aoal estoquestock (entrada)

    cAliasK260 := 'K260'
    CriaTabTmp(@oAliasTMP10, cAliasK260, aCampos, {"FILIAL", "COD_OP_OS"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K265
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0}) //Filial
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Texto fixofijo contendocon "K265"
    AADD(aCampos,{"COD_OP_OS" ,"C",nTamChave ,0}) // Campo chaveclave que ligavincula aoal registro PaiPrincipal K260
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //Código de dala mercadoriamercadería (campo 02 dodel Registro 0200)
    AADD(aCampos,{"QTD_CONS" ,"N",nTamCod ,0}) //QuantidadeCantidad consumida – saídasalida dodel estoquestock
    AADD(aCampos,{"QTD_RET" ,"N",nTamCod ,0}) //QuantidadeCantidad retornadadevuelta – entrada emen estoquestock

    cAliasK265 := 'K265'
    CriaTabTmp(@oAliasTMP11, cAliasK265, aCampos, {"FILIAL", "COD_OP_OS"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K270
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0}) //Filial
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Texto fixofijo contendocon "K270"
    AADD(aCampos,{"DT_INI_AP" ,"D",nTamChave ,0}) // DataFecha inicial dodel período de cálculo apuraçãoen emel que ocorreuocurrió oel apontamentoapunte que se está sendo corrigidocorrigiendo
    AADD(aCampos,{"DT_FIN_AP" ,"D",nTamDt ,0}) //DataFecha final dodel período de apuraçãocálculo en emel que ocorreuocurrió oel apontamentoapunte que se está sendo corrigidocorrigiendo
    AADD(aCampos,{"COD_OP_OS" ,"C",nTamCod ,0}) //Código de identificaçãoidentificación de dala ordemorden de producción produçãoo oude dala ordemorden de serviçoservicio que se está sendo corrigidacorrigiendo
    AADD(aCampos,{"CHAVE" ,"C",nTamChave ,0}) // Campo chaveclave que ligavincula aoal registro PaiPrincipal K270
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //Código dade la mercadoriamercadería que se está sendo corrigidocorrigiendo (campo 02 dodel Registro 0200)
    AADD(aCampos,{"QTD_COR_P" ,"N",nTamCod ,0}) //QuantidadeCantidad de correçãocorrección positiva de apontamentoapunte ocorridoocurrido emen período de apuraçãocálculo anterior
    AADD(aCampos,{"QTD_COR_N" ,"N",nTamCod ,0}) //QuantidadeCantidad de correçãocorrección negativa de apontamentoapunte ocorridoocurrido emen período de apuraçãocálculo anterior
    AADD(aCampos,{"ORIGEM " ,"C",nTamCod ,0}) //OrigemOrigen de dala correçãocorrección, conforme de acuerdo con el manual dodel Sped

    cAliasK270 := 'K270'
    CriaTabTmp(@oAliasTMP12, cAliasK270, aCampos, {"FILIAL", "COD_OP_OS"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K275
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0}) //Filial
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Texto fixofijo contendocon "K275"
    AADD(aCampos,{"COD_OP_OS" ,"C",nTamChave ,0}) // Campo chaveclave que ligavincula aoal registro PaiPrincipal K270
    AADD(aCampos,{"CHAVE" ,"C",nTamChave ,0}) // Campo chaveclave que ligavincula aoal registro PaiPrincipal K270
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //Código dade la mercadoriamercadería (campo 02 dodel Registro 0200)
    AADD(aCampos,{"QTD_COR_P" ,"N",nTamCod ,0}) //QuantidadeCantidad de correçãocorrección positiva de apontamentoapunte ocorridoocurrido emen período de apuraçãocálculo anterior
    AADD(aCampos,{"QTD_COR_N" ,"N",nTamCod ,0}) //QuantidadeCantidad de correçãocorrección negativa de apontamentoapunte ocorridoocurrido emen período de apuraçãocálculo anterior
    AADD(aCampos,{"COD_INS_SU" ,"C",nTamCod ,0}) //Código dodel insumo que foifue substituídosustituido, casosi ocorraocurriera ala substituiçãosustitución, referente relativoa aoslos Registros K235/K255

    cAliasK275 := 'K275'
    CriaTabTmp(@oAliasTMP13, cAliasK275, aCampos, {"FILIAL", "COD_OP_OS"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K280
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0})
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Texto fixofijo contendocon "K280"
    AADD(aCampos,{"DT_EST" ,"D",nTamDt ,0}) //DataFecha dodel estoquestock final escrituradoregistrado que se está sendo corrigidocorrigiendo
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //Código dodel itemítem (campo 02 dodel Registro 0200)
    AADD(aCampos,{"QTD_COR_P" ,"N",nTamCod ,0}) //QuantidadeCantidad de correçãocorrección positiva de apontamentoapunte ocorridoocurrido emen período de apuraçãocálculo anterior
    AADD(aCampos,{"QTD_COR_N" ,"N",aTamQtd[1],aTamQtd[2]}) //QuantidadeCantidad de correçãocorrección negativa de apontamentoapunte ocorridoocurrido emen período de apuraçãocálculo anterior
    AADD(aCampos,{"IND_EST" ,"C",aTamQtd[1],aTamQtd[2]}) //Indicador dodel tipo de estoquestock
    AADD(aCampos,{"COD_PART" ,"C",nTamPar ,0 }) //Código dodel participante

    cAliasK280 := 'K280'
    CriaTabTmp(@oAliasTMP14, cAliasK280, aCampos, {"FILIAL"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K290
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0})
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Texto fixofijo contendocon "K290"
    AADD(aCampos,{"DT_INI_OP" ,"D",nTamDt ,0}) //DataFecha inicial de iníciola da ordemorden de produçãoproducción
    AADD(aCampos,{"DT_FIN_OP" ,"D",nTamDt ,0}) //DataFecha de finalización conclusãode dala ordemorden de produçãoproducción
    AADD(aCampos,{"COD_DOC_OP" ,"C",nTamOP ,0}) //Código de identificación identificaçãode dala ordemorden de produçãoproducción

    cAliasK290 := 'K290'
    CriaTabTmp(@oAliasTMP15, cAliasK290, aCampos, {"FILIAL", "COD_DOC_OP"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K291
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0})
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Texto fixofijo contendocon "K291"
    AADD(aCampos,{"COD_DOC_OP","C",nTamOP,0}) // Código de identificación identificaçãode dala ordemorden de produçãoproducción
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //Código dodel itemítem produzidoproducido (campo 02 dodel Registro 0200)
    AADD(aCampos,{"QTD" ,"N",aTamQtd[1],aTamQtd[2] ,0}) //QuantidadeCantidad de produçãoproducción acabadafinalizada

    cAliasK291 := 'K291'
    CriaTabTmp(@oAliasTMP16, cAliasK291, aCampos, {"FILIAL", "COD_DOC_OP", "COD_ITEM"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K292
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0})
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Texto fixofijo contendocon "K292"
    AADD(aCampos,{"COD_DOC_OP","C",nTamOP,0}) // Código de identificación identificaçãode dala ordemorden de produçãoproducción
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //Código dodel itemítem produzidoproducido (campo 02 dodel Registro 0200)
    AADD(aCampos,{"QTD" ,"N",aTamQtd[1],aTamQtd[2] ,0}) //QuantidadeCantidad de produçãoproducción acabadafinalizada

    cAliasK292 := 'K292'
    CriaTabTmp(@oAliasTMP17, cAliasK292, aCampos, {"FILIAL", "COD_DOC_OP", "COD_ITEM"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K300
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0})
    AADD(aCampos,{"CHAVE" ,"C",nTamChave ,0}) //Campo de ligaçãovínculo comcon registros K301 ey K302
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Texto fixofijo contendocon "K300"
    AADD(aCampos,{"DT_PROD" ,"D",nTamDt ,0}) //Data do reconhecimento da produção ocorrida no terceiroFecha de reconocimiento de la producción ocurrida en el tercero

    cAliasK300 := 'K300'
    CriaTabTmp(@oAliasTMP18, cAliasK300, aCampos, {"FILIAL", "CHAVE"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K301
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0})
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Texto fixofijo contendocon "K301"
    AADD(aCampos,{"CHAVE" ,"C",nTamChave,0}) // Campo de ligaçãovínculo comcon registro K300
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //Código dodel itemítem produzidoproducido (campo 02 dodel Registro 0200)
    AADD(aCampos,{"QTD" ,"N",aTamQtd[1],aTamQtd[2] ,0}) //QuantidadeCantidad produzidaproducida

    cAliasK301 := 'K301'
    CriaTabTmp(@oAliasTMP19, cAliasK301, aCampos, {"FILIAL", "CHAVE"})
    //--------------------------------------------
    //CriacaoCreación dodel ArquivoArchivo de Trabalhotrabajo - BLOCOBLOQUE K302
    //--------------------------------------------
    aCampos := {}
    AADD(aCampos,{"FILIAL" ,"C",nTamFil ,0})
    AADD(aCampos,{"REG" ,"C",nTamReg ,0}) //Texto fixofijo contendocon "K302"
    AADD(aCampos,{"CHAVE" ,"C",nTamChave,0}) // Campo de ligaçãovínculo comcon registro K300
    AADD(aCampos,{"COD_ITEM" ,"C",nTamCod ,0}) //Código dodel itemítem produzidoproducido (campo 02 dodel Registro 0200)
    AADD(aCampos,{"QTD" ,"N",aTamQtd[1],aTamQtd[2] ,0}) //QuantidadeCantidad consumida

    cAliasK302 := 'K302'
    CriaTabTmp(@oAliasTMP20, cAliasK302, aCampos, {"FILIAL", "CHAVE"})

Return


Static Function CriaTabTmp(oAlias, cAlias, aCampos, aIndex)

    oAlias  :=	FWTemporaryTable():New(cAlias)
    oAlias:SetFields(aCampos)
    oAlias:AddIndex("01", aIndex)
    oAlias:Create()
    
Return


Static Function G0210(cAlias0210,cProd1,cProd2)

    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro 0210
    //----------------------------------------------------------------
    RecLock (cAlias0210, .T.)
    (cAlias0210)->FILIAL := cFilAnt // ExemploEjemplo de filialsucursal , deveradebe informar ala filialsucursal de seusu ambienteentorno que deveradebe gerargenerar oel arquivoarchivo
    (cAlias0210)->REG := '0210'
    (cAlias0210)->COD_ITEM := cProd1 //ExemploEjemplo de código de produto producto, deveradebe serinformarse informado umun código validoválido emen seusu ambienteentorno.
    (cAlias0210)->COD_I_COMP := '600'
    (cAlias0210)->QTD_COMP := 4
    (cAlias0210)->PERDA := 0
    MsUnLock ()

Return

Static Function GK200(cAliasK200,cProd1,cProd2)

    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K200
    //----------------------------------------------------------------
    RecLock (cAliasK200, .T.)
    (cAliasK200)->FILIAL := cFilAnt
    (cAliasK200)->REG := 'K200'
    (cAliasK200)->DT_EST := lastday(dDataBase)
    (cAliasK200)->COD_ITEM := cProd1
    (cAliasK200)->QTD := 1
    (cAliasK200)->IND_EST := '0'
    (cAliasK200)->COD_PART := 'SA100001001' //OBS:QuandoAl aplicávelaplicarse, informarinforme umun código de participante válido que exista en nala tabelatabla SA1 (clientes) ouo SA2 (FornecedoresProveedores) + LojaTienda - ExemploEjemplo: SA1+ 000010 +01 = "SA100001001". Esté Atentar-seatento aoal tamanhotamaño dodel código dodel cliente ey de dala lojatienda.
    MsUnLock ()

Return

Static Function GK210(cAliasK210,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K210
    //----------------------------------------------------------------
    RecLock (cAliasK210, .T.)
    (cAliasK210)->FILIAL := cFilAnt
    (cAliasK210)->REG := 'K210'
    (cAliasK210)->DT_INI_OS := lastday(dDataBase,1)
    (cAliasK210)->DT_FIN_OS := lastday(dDataBase)
    (cAliasK210)->COD_DOC_OS := '0000210001'
    (cAliasK210)->COD_ITEM_O := cProd2
    (cAliasK210)->QTD_ORI := 1 
    MsUnLock ()
Return

Static Function GK215(cAliasK215,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K215
    //----------------------------------------------------------------
    RecLock (cAliasK215, .T.)
    (cAliasK215)->FILIAL := cFilAnt
    (cAliasK215)->REG := 'K215'
    (cAliasK215)->COD_DOC_OS := '0000210001'
    (cAliasK215)->COD_ITEM_D := cProd1
    (cAliasK215)->QTD_DES:= 1
    MsUnLock ()
Return

Static Function GK220(cAliasK220,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K220
    //----------------------------------------------------------------
    RecLock (cAliasK220, .T.)
    (cAliasK220)->FILIAL := cFilAnt
    (cAliasK220)->REG := 'K220'
    (cAliasK220)->DT_MOV := lastday(dDataBase,1)
    (cAliasK220)->COD_ITEM_O := cProd1
    (cAliasK220)->COD_ITEM_D := cProd2
    (cAliasK220)->QTD_ORI := 1
    (cAliasK220)->QTD_DEST := 1
    MsUnLock ()
Return

Static Function GK230(cAliasK230,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K230
    //----------------------------------------------------------------
    RecLock (cAliasK230, .T.)
    (cAliasK230)->FILIAL := cFilAnt
    (cAliasK230)->REG := 'K230'
    (cAliasK230)->DT_INI_OP := lastday(dDataBase,1)
    (cAliasK230)->DT_FIN_OP := GRAVADATA(lastday(dDataBase),.F.,5)
    (cAliasK230)->COD_DOC_OP := '00005001001'
    (cAliasK230)->COD_ITEM := cProd2
    (cAliasK230)->QTD_ENC := 1
    MsUnLock ()
Return

Static Function GK235(cAliasK235,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K235
    //----------------------------------------------------------------
    RecLock (cAliasK235, .T.)
    (cAliasK235)->FILIAL := cFilAnt
    (cAliasK235)->REG := 'K235'
    (cAliasK235)->DT_SAIDA := lastday(dDataBase,1)
    (cAliasK235)->COD_ITEM := cProd1
    (cAliasK235)->QTD := 8
    (cAliasK235)->COD_INS_SU := ''
    (cAliasK235)->COD_DOC_OP := '00005001001'
    MsUnLock ()
Return

Static Function GK250(cAliasK250,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K250
    //----------------------------------------------------------------
    RecLock (cAliasK250, .T.)
    (cAliasK250)->FILIAL    := cFilAnt
    (cAliasK250)->REG       := 'K250'
    (cAliasK250)->CHAVE     := '000001'
    (cAliasK250)->COD_ITEM  := cProd2
    (cAliasK250)->DT_PROD   := lastday(dDataBase,1)
    (cAliasK250)->QTD       :=1
    MsUnLock ()
Return

Static Function GK255(cAliasK255,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K255
    //----------------------------------------------------------------
    RecLock (cAliasK255, .T.)
    (cAliasK255)->FILIAL    := cFilAnt
    (cAliasK255)->REG       := 'K255'
    (cAliasK255)->CHAVE     := '000001'
    (cAliasK255)->COD_ITEM  := cProd1
    (cAliasK255)->DT_CONS   := lastday(dDataBase,1)
    (cAliasK255)->QTD       :=1
    (cAliasK255)->COD_INS_SU:= ''
    MsUnLock ()
Return

Static Function GK260(cAliasK260,cProd1,cProd2)
        //----------------------------------------------------------------
        //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K260
        //----------------------------------------------------------------
        RecLock (cAliasK260, .T.)
        (cAliasK260)->FILIAL    := cFilAnt
        (cAliasK260)->REG       := 'K260'
        (cAliasK260)->COD_OP_OS := '000001'
        (cAliasK260)->COD_ITEM  := cProd2
        (cAliasK260)->DT_SAIDA  := lastday(dDataBase,1)
        (cAliasK260)->QTD_SAIDA :=0
        (cAliasK260)->DT_RET    :=lastday(dDataBase,1)
        (cAliasK260)->QTD_RET   :=0
        MsUnLock ()
Return

Static Function GK265(cAliasK265,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K265
    //----------------------------------------------------------------
    RecLock (cAliasK265, .T.)
    (cAliasK265)->FILIAL    := cFilAnt
    (cAliasK265)->REG       := 'K265'
    (cAliasK265)->COD_OP_OS := '000001'
    (cAliasK265)->COD_ITEM  := cProd1
    (cAliasK265)->QTD_CONS :=0
    (cAliasK265)->QTD_RET   :=0
    MsUnLock ()
Return

Static Function GK270(cAliasK270,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K270
    //----------------------------------------------------------------
    RecLock (cAliasK270, .T.)
    (cAliasK270)->FILIAL    := cFilAnt
    (cAliasK270)->REG       := 'K270'
    (cAliasK270)->DT_INI_AP := lastday(MonthSub(dDataBase,1),1)
    (cAliasK270)->DT_FIN_AP := lastday(MonthSub(dDataBase,1))
    (cAliasK270)->COD_OP_OS := '000001'
    (cAliasK270)->CHAVE     := '000001'
    (cAliasK270)->COD_ITEM  := cProd2
    (cAliasK270)->QTD_COR_P := 0
    (cAliasK270)->QTD_COR_N := 0
    (cAliasK270)->ORIGEM    := '1' 
    MsUnLock ()
Return

Static Function GK275(cAliasK275,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K275
    //----------------------------------------------------------------
    RecLock (cAliasK275, .T.)
    (cAliasK275)->FILIAL    := cFilAnt
    (cAliasK275)->REG       := 'K275'
    (cAliasK275)->COD_OP_OS := '000001'
    (cAliasK275)->CHAVE     := '000001'
    (cAliasK275)->COD_ITEM  := cProd2
    (cAliasK275)->QTD_COR_P := 1
    (cAliasK275)->QTD_COR_N := 0
    (cAliasK275)->COD_INS_SU:= ''
    MsUnLock ()
Return

Static Function GK280(cAliasK280,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K280
    //----------------------------------------------------------------
    RecLock (cAliasK280, .T.)
    (cAliasK280)->FILIAL := cFilAnt
    (cAliasK280)->REG := 'K280'
    (cAliasK280)->DT_EST := lastday(MonthSub(dDataBase,1),1)
    (cAliasK280)->COD_ITEM := cProd1
    (cAliasK280)->QTD_COR_P := 1
    (cAliasK280)->QTD_COR_N := 0
    (cAliasK280)->IND_EST := '0'
    (cAliasK280)->COD_PART:='SA1SP0001'
    MsUnLock ()
Return

Static Function GK290(cAliasK290,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K290
    //----------------------------------------------------------------
    RecLock (cAliasK290, .T.)
    (cAliasK290)->FILIAL := cFilAnt
    (cAliasK290)->REG := 'K290'
    (cAliasK290)->DT_INI_OP := lastday(dDataBase,1)
    (cAliasK290)->DT_FIN_OP := lastday(dDataBase)
    (cAliasK290)->COD_DOC_OP := '000001'
    MsUnLock ()
Return

Static Function GK291(cAliasK291,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K291
    //----------------------------------------------------------------
    RecLock (cAliasK291, .T.)
    (cAliasK291)->FILIAL    := cFilAnt
    (cAliasK291)->REG       := 'K291'
    (cAliasK291)->COD_DOC_OP:= '000001'
    (cAliasK291)->COD_ITEM  :=cProd2
    (cAliasK291)->QTD       := 1
    MsUnLock ()
Return

Static Function GK292(cAliasK292,cProd1,cProd2)
        //----------------------------------------------------------------
        //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K292
        //----------------------------------------------------------------
        RecLock (cAliasK292, .T.)
        (cAliasK292)->FILIAL    := cFilAnt
        (cAliasK292)->REG       := 'K292'
        (cAliasK292)->COD_DOC_OP:= '000001'
        (cAliasK292)->COD_ITEM  :=cProd1
        (cAliasK292)->QTD       := 1
        MsUnLock ()
Return

Static Function GK300(cAliasK300,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K300
    //----------------------------------------------------------------
    RecLock (cAliasK300, .T.)
    (cAliasK300)->FILIAL := cFilAnt
    (cAliasK300)->CHAVE  := '00000001'
    (cAliasK300)->REG    := 'K300'
    (cAliasK300)->DT_PROD:= lastday(dDataBase,1)
    MsUnLock ()
Return

Static Function GK301(cAliasK301,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K301
    //----------------------------------------------------------------
    RecLock (cAliasK301, .T.)
    (cAliasK301)->FILIAL := cFilAnt
    (cAliasK301)->REG    := 'K301'
    (cAliasK301)->CHAVE  := '00000001'
    (cAliasK301)->COD_ITEM:= cProd2
    (cAliasK301)->QTD    := 1
    MsUnLock ()
Return

Static Function GK302(cAliasK302,cProd1,cProd2)
    //----------------------------------------------------------------
    //AdicionandoIncluyendo informaciones informaçõesen noel arquivoarchivo temporáriotemporal para el registro K302
    //----------------------------------------------------------------
    RecLock (cAliasK302, .T.)
    (cAliasK302)->FILIAL := cFilAnt
    (cAliasK302)->REG    := 'K302'
    (cAliasK302)->CHAVE  := '00000001'
    (cAliasK302)->COD_ITEM:= cProd1
    (cAliasK302)->QTD    := 1
    MsUnLock ()
Return

05.

...

OTRAS INFORMACIONES

SPDFIS - Sped Fiscal

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave

01.